﻿Public Class ProjectInfo

    Public Property strName As String
    Public Property strPath As String
    
    Public Sub New(ByVal inName As String, ByVal inPath As String)
        strName = inName
        strPath = inPath
    End Sub

    Public Function GetExeReleaseDir() As String
        Return strPath & "\x86\o"
    End Function

    Public Function GetExeTraceDir() As String
        Return strPath & "\x86\o-trace"
    End Function

    Public Function GetINIDir() As String
        Return strPath & "\UT"
    End Function

    Public Function GetResDir() As String
        Return strPath & "\UT\RES"
    End Function

    Public Function GetIniFileName() As String
        Return strName & ".ini"
    End Function

End Class
